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Things For Sale 


Here is an up-to-date list of some of the things which I have that 
you might need: Notice that the prices on books, diskettes, and 
bags are below retail. 


S-C ASSEMBLER II Version AO sae ch eae ee eee eee eae UL 
Source code on Disk for above assembler.....cccccceeee e992 00 
Cross Assembler Patches for 6809 (for 4.0 owners.......$20.00 
Cross Assembler for 6800/6801/6802 (for 4.0 owners)....$22.50 
Quarterly Disk #1 (source code from Oct 80 - Dec 80)...$15.00 
Quarterly Disk #2 (source code from Jan 81 - Mar 81)...$15.00 
Quarterly Disk #3 (source code from Apr 81 - Jun 81)...$15.00 
Quarterly Disk #4 (source code from Jul 81 - Sep 81)...§15.00 
Blank Diskettes (Verbatim, with hub rings, no labels, 

plain white jackets, in cellophane 

WILAPPEL) cc ccccccccccceeee 20 Gisks for $50.00 
Zip-lock Bags (2-mil, 6"x9")...cceeeceesveeeelL00 bags for $8.50 
Zip-lock Bags (2-mil, 9"x12")......eeeee2+-100 bags for $13.00 
Back Issues of "Apple Assembly Line"......ccceeeeeeeeach $1.20 
"Beneath Apple DOS", Don Worth & Peter Lechner.........$18.00 
"What's Where in the Apple", William Luebbert..........$14.00 
"6502 Assembly Language Programming", Lance Leventhal..$16.00 


I add shipping hg to orders for books and bags. If you are 
in Texas, remember to add 5% sales tax on books, disks, and bags. 
Software isn't taxable in Texas. 


Advertising Info 

If you have a software or hardware product that you want to sell, 
you can reach over 500 serious Apple owners by advertising in AAL. 
A full page is only $20, and a half page $10. I print 1000 
copies, because many orders for back issues come in. 


Using Applesoft ROM's from Assembly Language 


There are many useful entry points in the Applesoft ROM's. The 
problem is figuring out how to use them. John Crossley's article 
"Applesoft Internal Entry Points" (originally published in Apple 
Orchard Volume 1 Number 1] March 1980) gives a brief description of 
most of the usable subroutines. If you missed the article, you 
can still get it from the International Apple Corps. It has also 
recently been reprinted in "Call A.P.P.L.E. in Depth--All About 
Applesoft". 


Now I want to show you how to use the floating point math 
subroutines. I won't cover every one of them, but enough to do 
most of the things you would ever need to do. This includes load, 
store, add, subtract, complement, compare, multiply, divide, 
print, and formatted-print. 


Internal Floating Point Number Format 


Applesoft stores floating point numbers in five bytes. The first 
byte is the binary exponent; the other four bytes are the 
mMantissa:; ee mm mm mm mn. 


The exponent (ee) is a signed number in excess-$80 form. That is, 
$80 1s added to the signed value. An exponent of +3 will be 
stored as $83; of -3, as $7D. If ee = $00, the entire number is 
considered to be zero, regardless of what the mantissa bytes are. 


The mantissa is considered to be a fraction between $.80000000 and 
S.FFFFFFFF. Since the value is always normalized, the first bit 
of the mantissa is always "1". Therefore, there is no need to 
actually use that bit position for a mantissa bit. Instead, the 
Sign of the number is stored in that position (0 for +, 1 for -). 
Here are some examples: 


-10.0 84 AO 00 00 00 
+10.0 84 20 00 00 00 
+1.0 81 00 00 00 00 
#1.75 81 60 00 00 00 
“1.75 81 EO 00 00 00 
+.1 7D 4C CC CC CD 


The Applesoft math subroutines use a slightly different format for 
faster processing, called "unpacked format". In this format the 
leading mantissa bit is explicitly stored, and the sign value is 
stored separately. Several groups of page-zero locations are used 
to store operands and results. The most frequently used are 
called "FAC" and "ARG". FAC occupies locations $9D thru $A2; ARG, 
SA5 thru SAA. 


Loading and Storing Floating Point Values 


There are a handful of subroutines in ROM for moving numbers into 
and out of FAC and ARG. Here are the five you need to know about. 


AS.MOVFM SEAF9 unpack (Y,A) into FAC 
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AS.MOVMF SEB2B pack FAC into (Y,X) 
AS.MOVFA SEB53 copy ARG into FAC 

AS .MOVAF SEB63 copy FAC into ARG 
AS.CONUPK SE9E3 unpack (Y,A) into ARG 


All of the above subroutines return with the exponent from FAC in 
the A-register, and with the Z-status bit set if (A)<0. 


Here is an example which loads a value into FAC, and then stores 
it at a different location. 


LDA 


#VAR1 


LDY /VAR1 ADDRESS IN (Y,A) 
JSR AS.MOVFM 


LDX 


#VAR2 


LDY /VAR2 ADDRESS IN (Y,X) 
JSR AS.MOVMF 


Arithmetic Subroutines 


Once a number is unpacked in FAC, there are many subroutines which 
can operate on it. 


AS.NEGOP SEEDO FAC = -FAC 


AS.FOUT SED34 convert FAC to decimal ASCII string 


starting at $0100 


AS.FCOMP SEBB2 compare FAC to packed number at (Y,A) 


return (A) = 1 if (Y,A) < FAC 
(A) = 0 if (Y¥Y,A) = FAC 
(A) =FF if (Y,A) > FAC 
AS.FADD SE7BE load (Y,A) into ARG, and fall into... 


AS.FADDT SE7C1 FAC = ARG + FAC 


AS.FSUB SE7A7 load (Y,A) into ARG, and fall into... 
AS.FSUBT SE7AA FAC = ARG - FAC 


AS.FMUL SE97F load (Y,A) into ARG, and fall into... 
AS.FMULT SE982 FAC = ARG * FAC 


AR.FDIV SEA66 load (Y,A) into ARG, and fall into... 
AS.FDIVT SEA69 FAC = ARG / FAC 


Here is an example which calculates VAR] = (VAR2 + VAR3) 


VAR3). 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
LDX 
LDY 
JSR 
LDA 


#VAR2  VAR2+VAR3 

/VAR2 

AS.MOVEM VAR2 INTO FAC 

#VAR3 

/VAR3 

AS.FADD + VAR3 

#VAR1 

/VAR1 

AS .MOVMF STORE SUM TEMPORARILY IN VARI] 
#VAR3 VAR2-VAR3 
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LDY /VAR3 

JSR AS.MOVFM VAR3 INTO FAC 

LDA #VAR2 

LDY /VAR2 

JSR AS.FSUB VAR2-VAR3 

LDA #VARI1 

LDY /VAR1 

JSR AS.FDIV DIVIDE DIFFERENCE BY SUM 
LDX #VAR1 

LDY /VAR1 

JSR AS.MOVMF STORE THE QUOTIENT 


As you can see, it is easy to get confused when writing this kind 
of code. It is so repetitive, there are so many setups of (Y,A) 
and (Y,X) addresses, that I make’a lot of typing mistakes. It 
would be nice if there was an interface program between my 
assembly language coding and the Applesoft ROMs. I would rather 
write the above program like this: 


JSR FP.LOAD VAR2 INTO FAC 


~DA VAR2 

JSR FP.SUB ~VAR3 

~-DA VAR3 

JSR FP.STORE SAVE AT VARI 

-DA VARO 

JSR FP.LOAD VAR2 INTO FAC 
~DA VAR2 

JSR FP.ADD +VAR3 

-DA VAR3 

JSR FP.DIV / (VAR2-VAR3) 

~-DA VARI] 

JSR FP.STORE STORE IN VARI] 
-DA VAR] 


Easy Interface to Applesoft ROMS 


The first step in constructing the "easy interface" is to figure 
out a way to get the argument address from the calling sequence. 
That is, when I execute: 

JSR FP.LOAD 

-DA VARI 
how does FP.LOAD get the address VAR1? 


I wrote a subroutine called GET.ADDR which does the job. Every 
one of my FP. subroutines starts by calling GET.ADDR to save the 
A-, X-, and Y-registers, and to return with the address which 
followed the JSR FP... in the Y- and A-registers. In fact, I 
return the low-byte of the address in both the A- and X-registers. 
That way the address is ready in both (Y,A) and (Y,X) form. 


GET.ADDR is at lines 4260-4480. I save A, X, and Y in three local 
variables, and then pull off the return address from the stack and 
save it also. (This is the return to whoever called GET.ADDR). 
Then I save the current TXTPTR value. This is the pointer 
Applesoft uses when picking up bytes from your program to 
interpret them. I am going to borrow the CHRGET subroutine, so I 
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need to save the current TXTPTR and restore it when I am finished. 
Then I pull the next address off the stack and stuff it into 
TXTPTR. This address is the return address to whoever called the 
FP... subroutine. It currently points to the third byte of that 
JSR, one byte before the .DA address we want to pick up. 


I next call GET.ADDR2, which useS CHRGET twice to pick up the next 
two bytes after the JSR and returns them in X and Y. Then I push 
the return address I saved at the beginning of GET.ADDR, and RTS 
back. Note that TXTPTR now points at the second byte of the .DA 
address. It is just right for picking up another argument, or for 
returning. If there is another argument, I get it by calling 
GET.ADDR2 again. When I am ready for the final return, I do it by 
JMPing to FP.EXIT. 


FP.EXIT, at lines 4670-4790, pushes the value in TXTPTR on the 
stack. It is the correct return address for the JSR FP.... Then 
I restore the old value of TXTPTR, along with the A-, X-, and 
Y-registers. And the RTS finishes the job. 


The Interface Subroutines 
I have alluded above to the "FP..." subroutines. In the listing I 


have shown eight of them, and you might add a dozen more after you 
get the hang of it. 


FP.LOAD load a value into FAC 

FP.STORE Store FAC at address 

FP.ADD FAC = FAC + value 

FP.SUB FAC = FAC - value 

FP.MUL FAC = FAC: * value 

FP.DIV FAC = FAC / value 

FP,.PRINT print value the way Applesoft would 


FP.PRINT.WD print value with D digits after decimal 
in a W-character field 


FP.LOAD, FP.STORE, FP.ADD, and FP.MUL are quite straightforward. 
All they do is call GET.ADDR to get the argument address, JSR into 
the Applesoft ROM subroutine, and JMP to FP.EXIT. 


FP.SUB and FP.DIV are a little more interesting. I didn't like 
the way the Applesoft ROM subroutines ordered the operands. It 
looks to me like they want me to think in complements and 
reciprocals. Remember that AS.FDIV performs FAC = (Y,A) / FAC. 
It 1S more natural for me to think left-to-right, so my FP.DIV 
permorms FAC = FAC / value. Likewise for FP.SUB. 


I reversed the sense of the subtraction after-the-fact, by just 
calling AS.NEGOP to complement the value in FAC. Reversing the 
division has to be done before calling AS.FDIV. I saved the 
argument address on the stack, called AS.MOVAF to ,copy FAC into 
ARG, called AS.MOVFM to get the argument into FAC, and then called 
AS.FDIVT. 


FP.PRINT, at lines 1830-1930, is also quite simple. I call 
GET.ADDR to set up the argument address, and AS.MOVFM to load it 
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into FAC. Then AS.FOUT converts it to an ASCII string starting at 
$0100. It terminates with a $00 byte. A short loop picks up the 
characters of this string and prints them by calling AS.COUT. I 
called AS.COUT, rather than SFDED in the monitor, so that 
Applesoft FLASH, INVERSE, and NORMAL would operate on the 
characters, 


And now for the really interesting one.... 


Formatted Print Subroutine 


FP.PRINT.WD expects three arguments: the address of the value to 
be printed, the field width to print it in, and the number of 
digits to print after the decimal point. Leading blanks and 
trailing zeroes will be printed if necessary. The Applesoft 
E-format will be caught and converted to the more civilized form. 
Fields up to 40 characters wide may be printed, which will 
accommodate up to 39 digits and a decimal point. If you try to 
print a number that is too wide for the field, it will try to fit 
it in by shifting off fractional digits. If it is still too wide, 
it will print a field of ">>>>" indicating overflow. 


For example, look at how values 123.4567and 12345.67 would be 
printed for corresponding W and D: 


W D 123.4567 12345.67 
1 bbbbb123.4 bbb12345.6 
3 bbb123.456 b12345.670 

10 5 b123.45670 12345.6700 
7 123.456700 12345.6700 
1 bb123.4 12345.6 
1 123. >>>> 


Sound pretty useful? I can hardly wait to start using it! Now 
let's walk through the code, 


Lines 2380-2410 pick up the arguments. The value is loaded into 
FAC, and converted to a string at $0100 by AS.FOUT. Then I get 
the W and D values into X and Y. 


Lines 2420-2510 check W and D. W must not be more than 40; if it 
is, use 40. (I arbitrarily chose 40 as the limit. If you want a 
different limit, you can use any value less than 128.) I also 
make sure that D is less than W. I save W in WD.GT in case I 
later need to print a field full of ">". Lines 2520-2560 compute 
W-D-1, which is the number of characters in the field to the left 
of the decimal point. I save the result back in W. 


Lines 2570-2590 check whether AS.FOUT converted to the Applesoft 
E-format or not. The decimal exponent printed after E is still in 
$9A as a binary value. Numbers formatted the civilized way are 
handled by lines 2600-3160. E-format numbers are restructured by 
lines 3200-3930. 


Lines 2600-2750 scan the string at $0100 up to the decimal point 
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(or to the end if no decimal point). In other words, I am 
counting the number of characters AS.FOUT put before the decimal 
point. If W is bigger than that, the difference is the number of 
leading blanks I need to print. Since W is decremented inside the 
loop, the leading blank count is all that is left in W. But what 
if W goes negative, meaning that the number is too big for the 
field? Then I reduce D and try again. If I run out of "D" also, 
then the field is entirely too small, so I go to PRINT.GT to 
indicate overflow. If there was no decimal point on the end, the 
code at lines 2790-2820 appends one to the string. 


Lines 2870-2980 scan over the fractional digits. If there are 
more than D of them, I store the end-of-string code ($00) after D 
digits. I also decrement D inside this loop, so that when the 
loop is finished D represents the number of trailing zeroes that I 
must add to fill out the field. (If the string runs out before D 
does, I need to print trailing zeroes.) 


At line 3020, the leading blanks are printed (if any; remember 
that W had the leading blank count). Then lines 3060-3110 print 
the string at $0100. And finally, line 3150 prints out D trailing 
zeroes (D might be zero). 


E-formatted numbers are a little tougher; we have to move the 
decimal point left or right depending on the exponent. We also 
might have to add zeroes before the decimal point, as well as 
after the fraction. Lines 3200-3330 scan through the converted 
string at $0100; the decimal point (if any) is removed, and an 
end-of-string byte ($00) is put where the "E" character is. Now 
all we have at $0100 is the sign and a string of significant 
digits, without decimal point or E-field. 


Lines 3350-3600 test the range of the decimal exponent. Negative 
exponents are handled at lines 3370-3660, and positive ones at 
lines 3700-3930. 


Negative exponents mean that the decimal point must be printed 
first, then possibly some leading zeroes, and then some 
Significant digits. Lines 3370-3410 compute how many leading 
zeroes are needed. For example, the value .00123 would be 
converted by AS.COUT as "1.23E-03". The decimal exponent is -3, 
and we need two leading zeroes. The number of leading zeroes is 
-(dec.exp+l). 


There is a little coding trick at line 3370. I want to compute 
-(dec.exp+l), and dec.exp is negative. By executing the EOR #SFF, 
the value is complemented and one is added at the same time! Why? 
Because the 6502 uses 2's complement arithmetic. Negative numbers 
are in the form 256-value. EOR #SFF is the same as doing 
255-value, which is the same as 256-(valuetl). Got it? 


Line 3430 prints the leading blanks; lines 3450-3460 print the 
decimal point. Lines 3480-3520 print the leading zeroes, 
decrementing D along the way. When all the leading zeroes are 
out, D will indicate how many significant digits need to be 
printed. 
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4250 * a 
4260 GET.ADDR 
O9FB- 8D 36 OA 4270 STA SAVE.A SAVE A,X,Y REGISTERS 
O9FE- 8E 37 OA 4280 STX SAVE.X 
QAQ1- 8C 38 OA 4290 STY SAVE.Y 
OA04— 68 4300 PLA SAVE GET.ADDR RETURN ADDRESS 
QA05- 8D 35 OA 4310 STA RETLO 
OA08- 68 4320 
QA09- 8D 34 OA 4330 STA RETHI 
QAOC- A5 B8 4340 LDA AS.TXTPTR SAVE APPLESOFT TEXT POINTER 
OQAOE- 8D 39 OA 4350 STA SAVE.T 
QAl]- A5 B 4360 AS .TXTPTR+1 
QA13- 8D 3A OA 4370 STA SAVE.T+1 
OA16- 68 4380 FE POINT AT BYTES AFTER JSR FP. <WHATEVER> 
QAl7- 85 B8 4390 STA AS. 
OA19- 68 4400 PLA 
OAlA- 85 B9 4410 STA AS.TXTPTR+1 
QAIC- 20 29 OA 4420 JSR GET.ADDR2 GET FIRST TWO BYTES AFTER 
QAIF- AD 34 OA 4430 LDA RETHI RETURN 
OA22— 48 4440 PHA 
OA23- AD 35 OA 4450 LDA RETLO 
OA26— 48 4460 PHA 
QA27- 8A 4470 TXA ADDR ALSO IN Y,A 
OA28- 60 4480 RTS 
4490 * 
4500 GET. 
QA29- 20 Bl 00 4510 JSR AS.CHRGET GET NEXT BYTE IN CALLING SEQUENCE 
OQA2C- AA 4520 TAX 
QA2D- 20 Bl 00 et JSR AS.CHRGET GET NEXT BYTE IN CALLING SEQUENCE 
QA30- A 454 TAY 
0A31- 60 4228 RTS 
4570 WBS 
ass 4340) “BS 
0A34- $330 RETHI .BS 1 
0A35- 4600 RETLO .BS 1 
0A36- 4610 SAVE.A .BS 1 
0A37- 4620 SAVE.X .BS 1 
0A38- 41828 SAVE.Y . 4 
0A39- 4640 SAVE.T .BS TXTPTR 
OA3B- 4650 WD.GT .BS 1 
4660 
4670 FP.EXIT 
es a B9 rH ‘ LDA AS.TXTPTR+1 GET HIGH BYTE 
F- A5 B8 4500 LDA AS. TXTPTR GET LOW BYTE 
QA4)- 48 4338 PHA 
OA42- AD 39 0A 4 LDA SAVE.T 
A45- 85 B8 4730 STA 
MA- 85 BO 475 STA AS. THIPIR¢1 
4c- AD 5 0A 4760 LDA ° 
OA4F- AE 3h OA 4770 LDX SAVE.X 
OA52- AC OA 4780 LDY SAVE.Y 
OA55- 60 4790 S 


APPLE 8-BIT 8-CHANNEL A/D SYSTEM 


>» 8-BIT RESOLUTION » ELIMINATES NEED TO WAIT FOR A/D CON- 
VERSION 


> ON BOARD MEMORY: >» AID PROCESS TOTALLY TRANSPARENT 
(Just peek at data) TO APPLE. 


» FAST CONVERSION - >» FULL SCALE INPUTS CAN EASILY BE 
(.078 ms per channel). CHANGED BY USER. 


APPLIED ENGINEERING’S A/D board is a breakthrough product for all APPLE owners 
giving real world data at a really affordable price. Diverse applications include monitoring 


TEMPERATURE WIND SPEED WIND DIRECTION.... 
LIGHT INTENSITY RPM SOIL MOISTURE 
AND MANY MORE 


CONTRIBUTED PROGRAMS ARE DISTRIBUTED FREE TO ALL A/D OWNERS IN OUR NEWSLETTER. 
MASTER CHARGE & VISA WELCOME 
See your dealer or contact - Cc) 
Ree ea eee 214) 492-2027 
APPLIED INGINEERNE eas 


9 | 
DALLAS, TEXAS sh 7:00 AM - 11:00 PM 7 DAYS A WEEK 


DALLAS. TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 


Page 8....Apple Assembly Line....November, 1981....Copyright (C) S-C SOFTWARE 


1000 * 
1010 * TEST 
1020 * ——_-----—-__-----— 
O800- AO OA _—«-1030 TEST ~ LDY #10 LOOP 10 TIMES 
0802- 20 61 08 1040 JSR FP.LOAD VARI = 1.0 
0805- 13 E9 ‘1050 “DA AS.ONE 
0807- 20 6A 08 1060 SSR FP.STORE 
O80A- 57 08 ‘1070 “DA VARI 
080c- 20 61 08 1080 SSR FP.LOAD VAR2 = 10.0 
O80F- 50 FA _ 1090 .DA AS.TEN 
Bi ge gece tee Ss eagtoe 
0816- 20 61 08 1120 .1 JSR FP.LOAD VARI=(VARI+1) /VAR2 
819- 31 08 1139 .DA VARI 
81B- 08 11 SSR FP.ADD 
O81E- 20 13 B9 1150 JSR AS.ONE 
0821- 20 AA 08 1160 JSR FP.DIV 
0824- aC 08 1170 .DA VAR 
0826- 20 6A 08 1180 SSR FP.STORE 
829- 34 08 1190 -DA 
82B- 20 61 08 1200 JSR FP.LOAD VAR2=VAR2-1 
082F- aC 08 1210 .DA VAR2 
0830- 20 95 08 1220 SSR FP.SUB 
0833- 13 E9 «1230 .DA AS.ONE 
0835- 20 6A 08 1240 JSR FP.STORE 
0838- ee 08 1250 .DA 
083A- 20 BF 08 126 SSR FP.PRINT.WD 
083D- 57 08 08 
0840- 03 1270 .DA VAR1, #8, #3 
0841- 20 BF 08 1280 SSR FP.PRINE.WD 
0844- 57 08 13 
0847- 04 1290 .DA VARL, #19, #4 
0848- 20 48 F9 1300 JSR MON. BLANKS 3 SPACES 
084B- 20 73 08 1310 JSR FP.PRINT 
O84E- 57 08  =1320 -DA VARI . 
0850- 20 8E FD 1330 JSR MON.CROUT PRINT CARRIAGE RETURN 
0853- 88 1340 DEY NEXT TRIP AROUND THE LOOP 
0854- D0 CO ~—:1350 BNE .1 
0856- 60 1360 RTS FINISHED 
0857- 1370 VARL .BS 5 MY VARIABLES 
085C- 1380 VAR2 «BS 5 
1400 * ARITHMETIC PACKAGE 
1410 * 
009A- 1420 AS.FOUT.E . 
909 - 1430 AS.TEMP1 . 
OB8- 1440 AS: TXTPTR : 
1450 * 
00B1- 1460 AS.CHRGET . 
DB5C- 1470 AS.COUr i 
E7BE- 1490 AS.FADD é 
E913- 1500 AS.ONE : 
E97F- 1510 AS.FMUL si, 
EA50- 1520 AS. TEN : 
FA69- 1530 AS.FDIVE 
FAFO- 1540 AS.MOVEM ; 
EB21- 1590 AS.MOVIF . 
EB2B- 1560 AS:.MOVMF 
EB63- 15/0 AS.MOVAF .E 
ED34- 1580 AS.FOUT. i: 
= 1590 AS.NEGOP . 
1600 * eee eee es 
F948- 1610 MON. . F948 PRINT 3 BLANKS 
8E- 1620 MON.CROUT 8E PRINT CRLF 
1640 * JSR FP.LOAD LOAD VALUE INTO FAC 
1650 * eDA <ADDR OF VALUE> 
1660 * 
1670 FP.LOAD 
0861- 20 FB 09 1680 JSR GET.ADDR IN Y,X AND Y,A 
0864— 20 F9 FA 1690 JSR AS.MOVEM 
0867- 4C 3C OA 1700 : UMP FP.EXIT 
1720 * JSR FP.STORE STORE FAC 
1730 * eDA <ADDR TO STORE IND 
1740 * sae ce tts aon 
1750 FP.STORE 
S86h- 20 Fe Oe 116) SSE GETAOER TN YX ND 
0870- 4C 3C OA 1480 UMP FP.EXIT 
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POOP 
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SERRERSE 
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NORD ad NO’ 
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DNNNNDP 
Ul be WAS 


260 


F VALUE ‘TO BE PRINTED> 


ed IDA K Soo, Y 
JSR AS.COUT 
INY 


~ JSR FP.ADD FAC = FAC + VALUE 
: eDA <ADDR OF VALUE> 
FP.ADD JSR GET.ADDR IN Y,X AND Y,A 
JSR AS.FADD FAC= FAC 
JMP EXIT 


JSR FP.SUB FAC = FAC - VALUE 
DA <ADDR OF VALUE> 


JSR AS.FSUB FAC=ARG-FAC 
JSR AS.NEGOP FAC=-FAC 
JMP FP.EXIT 


JSR FP.MUL FAC = FAC + VALUE 
<ADDR OF VALUE> 


re] + 3% + 


JSR GET.ADDR IN Y,X AND Y,A 
JSR AS.FMUL FAC=ARG*FAC 


JSR FP.DIV. FAC = FX / VALUE 
eDA <ADDR OF VALUE> 


7] + + + 


P.DIV JSR GET.ADDR 
PHA 
TYA 
PHA 
JSR AS.MOVAF MOVE FAC TO ARG 
PLA 
TAY 
PLA 
JSR AS.MOVEFM 
JSR AS.FDIVT 
JMP FP.EXIT 
-DA oo OF VALUE>, 
W 
P.PRINT .WD 
JSR GET.ADDR ADDRESS OF VALUE 
oon ASE -MOVFM SAIUE A aC 


J 
per x HL ADDR? ee (Y)=D 


14 STX W # CHARACTERS IN WHOLE FIELD 


CPY W FORCE D<wW 
DEX COMPUTE W-D-1 


W 
[DA BD ern © .E SEE IF E-FORMAT 
E, FORMAT 
12 Y #0 


JSR FP.PRINT NI VALUE IN FREE FORMAT 
.DA <ADDR O 


JSR FP.PRINT.WD PRINT VALUE WITH W.D FORMAT 


= 
Osi 
Q) 
o 
oe bse 
ae 
2 
é 
g 
4 


N WHOLE FIELD 


FAC 
TO STRING AT $100 
LD WIDTH TO 40 CHARS 


2610 * ~-------—— 
2620 . SCAN TO "." OR END, DECREMENTING W 
O8F5- B9 00 01 2640 .1l LDA $100,Y SCAN TO END OR DECIMAL POINT 
O8F8- FO 17 2650 BEO .2 FOUND END, NO DECIMAL POINT 
O8FA- C9 2E =: 2660 CMP #', 
8FC- FO ID ~—«-. 2670 BEQ 3 FOUND DECIMAL POINT 
O8FE- C8 2680 I COUNT STRING LENGTH 
O8FF- CE 32 0A 2690 DEC W | 
0902- 10 Fl 2700 BPL .1 .» UNLESS TOO MANY DIGITS FOR FIELD 
0904- A9 00 ~—«2710 IDA #0 
0906- 8D 32 OA 2720 STA W NEED NO LEADING BLANKS 
0909- CE 33 OA 273 DEC D RACK UP D IF POSSIBLE 
090C- I0 E7 274 BPL .1 TRY AGAIN 
O090E- 4C DA 09 2150 . JMP PRINT.GT OVERFLOW 
2710 : APPEND DECIMAL POINT SINCE NONE PRESENT 
0911- A9 2E ~=—- 2790 -.2 LDA #' PUT DECIMAL POINT BACK ON END 
0913— 99 00 01 2800 STA $100,Y 
0916- A9 00 _—s«.28:10 LDA 40 END OF STRING CHAR 
0918- 99 01 01 2820 : STA $101,Y 
2840 * SCAN TO END, DECREMENTING D 
2850 * (PUT EOS AFTER D DIGITS) 
091B- C8 2870 .3 INY NEXT CHAR 
091C- AD 33 OA 2880 LDA D 
091F- FO 0B _—«-2890 BED 5 NO FRACTIONAL DIGITS 
0921- B9 00 01 2900 .4 IDA $100,Y COUNT FRACTIONAL DIGITS TO END 
0924- FO OE = =-2910 6 END OF STRING 
0926- C8 2920 
0927- CE 33 OA 2930 DEC D 
092A- DO F 294 . BNE .4 STILL NEED MORE DIGITS 
092c- A9 00~—ss 2 2 5 LDA #0 MAKE EOS 
092F- 99 00 01 2970 STA $100,/¥ 
0931- 8D 33 OA 2980 . STA NEED NO TRAILING ZEROES 
3000 : PRINT LEADING BLANKS AS NEEDED 
0934- 20 E5 09 3020 6 JSR LEADING. BLANKS 
3040 : PRINT CONVERTED STRING 
3060 * COMES HERE WITH (Y)=0 
0937- B9 00 01 3070 .8 LDA $100,Y 
093A- FO 06 3080 BEO .9 
093C- 20 5C DB 3090 JSR AS.COUT 
093F- C8 3100 INY 
0940- DO F5 3110 . BNE .8 .« ALWAYS 
3130 : PRINT TRAILING ZEROES AS NEEDED 
0942- 20 ED 09 3150 .9 JSR TRAILING. ZEROES 
0945- 4¢ 3c BR 3160 . JMP FP.EXIT 
3180 : HANDLE NUMBERS WHICH COME IN E-FORMAT 
3335 E. FORMAT 
0948- A2 00 3210 LDX #0 
bg4c- 89 00 01 3540 «1 LY ey00,¥ SCAN TO "E". CHANGE TO EOS 
094F- C9 45 3240 ° CMP ite ? / 
0951- FO 0B 3250 BEQ .3 
0953- C9 2F ~=—s_—«43260 CMP #', SHUFFLE DIGITS AFTER "," 
0955- FO 04 3270 BEQ LEFT ONE POSITION 
0957- 9D 00 01 3280 STA $100,X 
095A- E8 3290 INX 
Se hee HOD? ausays 
095E- AS 00 3320 .3 LDA 40 AOS 
0960- 9D 00 01 3330 . STA $100,X 
0963- AS 9A —-_:33350 LDA AS,FOUT.E EXP AGAIN 
pace 49 Pe 335) DOR ites as IS # ZEROES 
0969- CD 33 OA 3380 CMP D one IF MORE THAN WE NEED 
096C-. 90 03 3390 BCC . NO 
096E- AD 33 OA 3400 LDA D YES, JUST USE D 
0971- AA 3410 .4 TAX 
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0975- 2E #°, DECIMAL POINT 
977- 20 5C DB 3460 | JSR AS.COUT 
097A- A9 30 =: 33480 -~.7 LDA #'0 ZEROES 
097C- 20 5C DB 3490 JSR AS.COUT 
O97F- CE 33 OA 3500 DEC D REDUCE DIGIT COUNT 
0982- CA 3510 DEX 
0983- DO FS 3520 . BNE .7 MORE ZEROES 
0985- AO 00 _—«-: 3540 LDY #0 
0987- AD 33 OA. 39 LDA D HOW MANY DIGITS? 
098a- FO OF 56 BED 9 NONE 
098Cc- B9 00 01 3570 .8 LDA $100,Y GET A DIGIT 
098F- FO 0C —s- 3580 BEY -10 OUT OF DIGITS 
991- 20 5C DB 590 JSR AS.COUT 
994- C8 I 
0995- CE 33 OA 3610 DEC D 
0998- DO F2.—s_- 3620 BNE .8 . 
099A- 3C OA 363 32 JMP FP.EXIT 
099D- 20 ED 99 650 .10 JSR TRAILING.ZEROES 
O9A0- 4c A 660 : JMP FP.EXIT 
3680 7 E-FORMAT WITH EXP>0 
O9A3- CD 32 OA 3700 .12 CMP W SEE IF ENOUGH ROOM 
O9A6- BO 32 3710 BCS PRINI.GT FILL FIELD WITH ">" 
O9A8- AA 3720 TAX 
O9A9- E8 373 INX # DIGITS AND TRAILING ZEROES 
O9AA- 49 FF =: 374 BOR #SFF —(EXP+1 
O9AC- 32 OA 3750 ADC W LEADING BLANKS 
O9AF- 8D 32 OA 3760 
09B2- 20 E5 09 3770 JSR LEADING. BLANKS 
09B5- B9 00 01 3780 .13. LDA $100,Y PRINT SIGNIFICANT DIGITS 
9B8- BO 07 79 BEQ "14 
9RA- 20 5C DB 380 JSR AS.COUT 
09BD- 810 DEX 
O9BE- C8 820 INY 
O9BF- DO F4_—s-:-383 BNE .13 . » ALWAYS 
09Cl- 33 OA 3840 .14 LDA D SAVE TRAILING ZERO CNI 
09C4- 48 3850 PHA 
09C5- 8E 33 3860 _STX D SET UP ZEROES BEFORE "." 
09C8- 20 ED 09 387 JSR TRAILING. ZEROES 
O9CB- 68 3880 PLA RESTORE REAL TRAILING ZERO CNT 
09CC- 8D 33 OA 3890 STA D 
O9CF- AS 2E 3900 LDA #'. PRINI DECIMAL POINT 
09D1- 20 5c pB 3910 JSR AS. 
09D4—- 20 ED 09 3920 JSR TRAILING.ZEROES 
09D7- 4C 3C OA 3930 . UMP FP.EXIT 
3220 . PRINT (WD.GT) GREATER THAN SIGNS (*>*) 
3970 PRINT.GT 
O9DA- AI 3E —_:- 3980 LDA #'> OVERFLOW 
O9DC- AC 3B OA 3990 LDY WD. 
O9DF- 20 F2 09 4000 JSR PRINT.ACHAR.YTIMES 
09E2- 4C 3C OA 4010 . JMP FP.EXIT 
ety . OUTPUT (W) LEADING BLANKS 
4050 LEADING. BLANKS 
O9ES- AY 20 4060 LDA #$20 BLANK 
O9E7- AC 32 OA 4070 LDY # TO PRINT 
O9EA- 4C 09 aceG n JMP PRINT .ACHAR.YTIMES 
hn 7 OUTPUT (D) TRAILING ZEROES 
4120 TRAILING. ZEROES 
O9ED- A9 30 ~—S 4130 LDA #'0 
OSEF- AC 33 OA 4140 LDY D 
qep * FALL INTO PRINT.ACHAR. YTIMES 
4128 : PRINT (Y) REPETITIONS OF (A) 
4190 PRINT.ACHAR. YTIMES 
O9F2- FO 06 4200 BEO .2 (Y) IS 0, DON'T PRINT ANY 
O9F4- 20 5C DB 4210 .1 JSR AS. 
O9F7- 88 4220 
O9F8- DO FA —- 4230 BNE .1] 
O9FA- 60 4240 .2 RTS 
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Lines 3540-3620 print as many significant digits as will fit in 
the remaining part of the field (maybe none). Of course, the 
field might be large enough that we also need trailing zeroes. If 
so, line 3650 prints them. 


What if the exponent was positive? Then lines 3700-3710 see if 
the number will fit in the field. If not, PRINT.GT will fill the 
field with ">". If it will fit, then the exponent is the number 
of digits to be printed. The number of leading blanks will be 
W-dec.exp-1 (the -l is for the decimal point). Note that line 
3740 complements and adds one at the same time, to get -(exptl). 


Line 3770 prints the leading blanks, if any. Lines 3780-3830 
print the significant digits from the string at $0100. Lines 
3840-3890 print any zeroes needed between the significant digits 
and the decimal point. Lines 3900-3910 print the decimal point, 
and line 3920 prints the trailing zeroes. 


Possible Modifications 


You might like to add a dozen or so more FP... subroutines, and 
hand-compile your favorite Applesoft programs into machine 
language. You might want to revise the FP.PRINT.WD subroutine to 
work from Applesoft using the & statement, or using a CALL. This 
would give you a very effective way of formatting values. You 
also might want to make it put the result in an Applesoft string 
variable, rather than directly printing it. You might want to add 
a floating dollar sign capability, or comma insertion between 
every three digits. If you implement any of these, let me know. 

I would like to print them in: future issues of AAL. 


Time II 


The most powerful, easiest to use, clock for your APPLE 


e TIME IN HOURS, MINUTES AND SECONDS. 

* DATE WITH YEAR, MONTH, DATE, DAY OF WEEK ANDO 
LEAP YEAR. 

¢ FAST DATE AND TIME SETTING. 

¢ PROGRAM SELECTABLE 24 HOUR MILITARY FORMAT 
OR 12 HOUR WITH AM/PM FORMAT. 

e +30 SECOND ADJUST. 

¢ DIP SWITCH SELECTABLE INTERRUPTS PEAMIT 
FOREGROUND/BACKGROUND OPERATION OF TWO 
PROGRAMS SIMULTANEOUSLY SO YOU CAN CALL UP 
SCHEDULES, TIME EVENTS, DATE LISTINGS, AND 
OTHER PRINTOUTS. 


e INCLUDES 16 SECTOR DISK WITH OVER 25 CON- 
* CRYSTAL CONTROLLED FOR .0005% ACCURACY. TRIBUTED PROGRAMS SO YOU CAN PUT YOUR TIME II 
*LATCHED INPUT AND OUTPUT PORTS FOR THE TO USE RIGHT AWAY. 
EASIEST PROGRAMMING IN BASIC. 
* ON BOARD BATTERY BACKUP POWER FOR OVER 4 * TWENTY-THREE PAGE OPERATING MANUAL 
MONTHS POWER OFF OPERATION (BATTERY INCLUDED, WITH MANY EXAMPLES OF PROGRAMS TO 
CHARGES WHEN APPLE |S ON). USE WITH YOUR APPLE IN ANY CONFIGURATION. 


ALL ORDERS SHIPPED SAME DAY MASTER CHARGE & VISA WELCOME 
SEND $129.00 CHECK OR MONEY ORDER 


(TEXAS RESIDENTS ADO 5% SALES TAX) ae F Sm 
A2BUIZO ENGINZZUNG (214) 492-2027 
P.O. BOX 470301 7:00 AM - 11:00 PM 7 DAYS A WEEK 


DALLAS. TEXAS 75247 APPLE PERIPHERALS ARE OUR QNLY BUSINESS 
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Poor Man's DiSaSSembler....ccccccccecccceceeedames O. Church 


I wanted a quick and cheap way to get machine language code into 
the S-C Assembler II Version 4.0, via a text file. I didn't need 
labels or other automatic features like those $25-$30 Two-Pass 
Disassemblers have. Or at least not badly enough to pay the price 
and wait for delivery. 


There is a fundamental disassembler in the Apple Monitor ROM, 
which the "L" command invokes. The problems with it are that it 
only writes on the screen (not on a text file), and it is not in 
the correct format for the assembler to use. It has too many 
Spaces between the opcode and operand fields, and there is and 
address rather than a line number at the beginning of each line. 


I wrote a program in Applesoft that gets the starting address of 
the memory you want to disassemble, and then calls on the monitor 
"L" command as long as you like. The opcode and operand of each 
disassembled line are packed into a string array until you want to 
quit. Then you have the option to write the string array ona 
text file. The program squeezes out the two extra Spaces 
mentioned above, and omits the hex address from each line. In 
place of the address and blanks which precede the opcode, this 
program inserts two control-I characters. 


Later, when you use EXEC to get the text file into the S-C 
Assembler II, the first control-I will generate a line number, and 
the second one will tab over to the opcode column. 


To speed it up a little, I wrote a machine language routine to 
move the second screen line into the string array. I used the last 
15 lines of the Field Input Routine from the September, 1981, 
issue of AAL as a guide. (Thank you, Bob Potts!) 


I chose to not use the already overworked "&" way to call my 
subroutine. Instead I just used CALL 768, followed by the string 
reference, It works just as well, as far as I'm concerned. 


Also, rather than BLOADing such a short little program, I included 
it as a hexadecimal string inside the Applesoft program. I used 
an old technique from B. Lam (Call A.P.P.L.E., many moons ago) for 
passing the hex code to the monitor and thence into memory. (It's 
all in line 50.) 


Line 100 sets up my array for 1280 lines. That's enough for about 
2K of code at a time. Plenty. Make it bigger if you like. 


Lines 110-120 ask for and process the starting memory address you 
want. If you type a negative value, I add 65536 to it to make it 
positive (from 0 thru 65535, rather than -32768 thru 32767). Then 
I test the range to make sure you ARE in that range. 


Line 130 puts the address where the monitor "L" command wants to 
find it. 


The CALL -418 on line 140 disassembles 20 lines. Line 150 
Shuffles the operand field two spaces left. Then CALL 768AS$(X) 
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puts the ll-byte string starting with the first character of the 
opcode on the second screen line, into A$(X). CALL -912 on line 
180 scrolls the screen up one line, so the next line of 
disassembly is now on the second screen line. The process repeats 
until 20 lines have been processed. 


Then you have the choice to continue or not. If not, you have the 
option to write AS$() on a text file. If you choose to write it on 
a file, the file is OPENed, DELETEd, OPENed again, and primed for 
WRITE. Why the DELETE and extra OPEN? So that if the file was 
already there, it will be replaced with a new one. If a 
pre-existing file was longer than my new disassembly, the extra 
Old lines would remain in the file. 


You know, once the program is in the string array in text form, 
you could go ahead and scan it for particular addresses in the 
operand column. Then you could replace them with meaningful 


symbols. And you could add meaningful labels on lines that are 
branched to.... 


[James Church is a special agent for the Northwestern Mutual Life 
Insurance Agency; he lives in Trumbull, CT. Article ghost-written 
and program slightly modified by Bob Sander-Cederlof] 


NEW UTILITY FOR THE S-C ASM 

Do You Like Having Your Labels, Opcodes And Comments Lined Up For Readability, But Don't Want To Give Up 
Free Format Entry. Or Did You Set Your Tabs For 8 Char Labels And Found You Needed A Few Longer Ones? Now 
There's No Need To Manually Edit Just To Lineup Those Colugms. SC.TAB Is A Source Formatting Utility For Use 
With The S-C Assembler (4.0). You Simply Specify The Colusm Numbers For Opcodes And Comments And SC. TAB Does 
The Rest. A Two-Pass Operation Insures You That There Are No Confilcts Before Any Changes Are Actually Made. 
Should A Probles Arrise Then The Offending Line And The Tab Settings Are Displayed For Your Inspection. The 
User Can Limit Changes To Any Portion Of Source. SC. TAB Is Fast Since Its 108% Machine Language. 


SC. TAB Program Diskette & User Manual: $15.0 


INTRODUCTORY OFFER! 
For A Lisited Time SC. TAB Is Available At A Special Introductory Price When Purchased With Both Of Our Other 
S-C Assembler Utilities. 
# SC.XREF : Generates Label Cross Reference Tabels For Complete Source Documentation 
# SC.6SR : A Global Search-And-Replace Eliminates Tedious Manual Renaming Of Labels 


Normally, All Three Utilities Would Cost $55.08. Buy Them Now And Save $18.08 


SC Utility Package: $45.0 
(This special offer ends January 1, 1982) 


All shipments within continental USA via First-Class sail Foreign Orders: Add $3.08 for Air Mail 
RAK -WA RE 


41 Ralph Road 
West Orange NJ @7@52 
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40 HOME : VTAB 10: HTAB 9: PRINT "POOR MAN'S DISASSEMBLER": HTAB 
9: PRINT "----------------------- "; HTAB 13: PRINT "JAMES O. 
CHURCH": HTAB 14: PRINT "SPECIAL AGENT" 

50 HEXS = "300:20 E3 DF A9 OB 20 52 E4 AO 00 91 83 AS 71 C8 91 83 
AS 72 C8 91 83 A2 94 AO 04 AS OB 20 E2 ES 60 N D823G": FOR 
I = 1 TO LEN (HEXS$): POKE 511 + I, ASC ( MIDS (HEX$,I,1)) + 
128: NEXT : POKE 72,0: CALL -— 144 

100 DIM AS$(1280):X = 0 

110 HOME : VTAB 10: INPUT "START LOCATION IN DECIMAL: ";LS:L = 
(L$): IF L < 0 THEN L = L + 65536 

120 IF L < 0 OR L D 65535 THEN 110 

130 LH = INT (L / 256):LL = L — LH * 256: POKE 58,LL: POKE 59,LH 


140 J = 0: HOME : CALL - 418 

150 FOR I = 0 TO 6: POKE 1176 + I, PEEK (1178 + 1): NEXT 

160 CALL 768AS$(X) 

170 X = X +t l: IF X > 1280 THEN PRINT "ARRAY FULL": GOTO 210 

180 CALL - 912:J = J + 1: IF J < 20 THEN 150 

190 PRINT : PRINT "CONTINUE? (Y/N) "3: GET A$: IF AS = "Y" THEN 
140 

200 HOME : VTAB 10 

210 PRINT "DO YOU WANT TO PUT IT IN A FILE? (Y/N) "3: GET A$: IF 
AS < > "Y" THEN HOME : END 

220 PRINT : INPUT "NAME OF FILE: ";FS 

230 D$ = CHRS (4): PRINT DS"OPEN"FS 

240 PRINT DS"DELETE"FS$: PRINT DS"OPEN"FS: PRINT DS"WRITE"FS 

250 FOR J = 0 TO X - 1: PRINT CHRS (9); CHRS (9);AS$(J): NEXT 

260 PRINT D$"CLOSE": END 


APPLE MUSIC SYNTHESIZER BREAKTHROUGH 


e COMPLETE 16 VOICE MUSIC SYNTHESIZER ON ONE CARD, JUST PLUG IT INTO YOUR APPLE, CONNECT THE 


AUDIO CABLE (SUPPLIED) TO YOUR STEREO AND BOOT THE SUPPLI \ : 
Prrancter award ED DISK AND YOU'RE READY TO ENTER 


*ITS EASY TO PROGRAM MUSIC WITH OUR “COMPOSE” SOFTWARE. YOU'LL START RIGHT AWAY AT 
INPUTTING YOUR FAVORITE SONGS. OUR MANUAL SHOWS YOU HOW, STEP BY STEP. THE HI-RES SCREEN 
SHOWS WHAT YOU'VE ENTERED IN STANDARD SHEET MUSIC FORMAT. 


¢ WE GIVE YOU LOTS OF SOFTWARE. IN ADDITION TO "COMP " AND P PR 
GE SGHES REARY TO RUK OSE LAY PROGRAMS, THE DISK IS FULL 


¢ FOUR WHITE NOISE GENERATORS (GREAT FOR SOUND EFFECTS). 
¢ PLAYS MUSIC IN TRUE STEREO AS WELL AS TRUE DISCREET QUADRAPHONIC. 


¢ ENVELOPE CONTROL (VOLUME) 


e WILL PLAY SONGS WRITTEN FOR ALF SYNTHESIZER (ALF SOFTWARE WILL NOT TAKE ADVANTAGE OF ALL 
THE FEATURES OF THIS BOARD, THEIR SOF TWARE SOUNDS THE SAME ON OUR SYNTHESIZER). 


¢ AUTOMATIC SHUTOFF ON POWER-UP, OR IF RESET 1S PUSHED. 
¢ MANY, MANY MORE FEATURES. 


ALL ORDERS SHIPPED SAME DAY MASTER CHARGE & VISA WELCOME 


SEND $159.00 CHECK OR MONEY ORDER es 
(214) 492-2027 CJ 


(TEXAS RESIDENTS ADD 5% SALES TAX) 

RPPLIZO ENGINEERING Spire opahand 

P.O. BOX 470301 a. AYS AWEEK 
DALLAS, TEXAS 75247 APPLE PERIPHERALS ARE OUR ONLY BUSINESS 
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031C- 20 E2 E5 


SO) se 
1919 : BUILD STRING FROM SECOND LINE ON SCREEN 
Tee -OR $3000 
DFE3- 1050 PIRGET .E FE3 PUTS STRING POINTER ADDRESS IN *83 84 
452- 1060 GETSPA 2E0 $£452 PUTS ADDRESS OF STRING SPACE IN $71,72 
ESED— 1070 MOV EB E5E2 MOVES DATA FROM (Y,X) TO STRING SPACE 
0071- 1090 SPCPTR .EQ $71,72 PNIR TO STRING SPACE RESERVED BY GETSPA 
50g3- 1100 STRPTR BS Shy! ba PNIR TO STRING VARIABLE PIRGET GOT 
1120 * TO USE: 
Hie * CALL 768AS(X) 
9300- 29 B3 DF 1150 GO JSR PTRGET GET ADDRESS, OF STRING INTO $83, 84 
0305- 20 52 E4 1170 JSR GETSPA GET SPACE FOR 11-BYTE STRING 
O30Re 31 83 1190 STA { OTRPTR) Y PUT LENGTH IN STRING DESCRIPTOR 
030C- AS 71 = 1200 LDA an "LOW BYTE OF STRING ADDRESS 
oe SP gs 1558 tA (STRPTR) 
11- A5 72. =: 1230 LDA SER GH BYTE OF STRING ADDRESS 
Oot Se a3 580 STA ),¥ 
Os 16- 22 of 1260 LDK i 0494 "START, OF QRCODE ON, SECOND SCREEN LINE 
18° 0B 1280 LDA #11 11 Byres Tone, 


JSR MOVSTR MOVE IT IN 
RTS 


1 
031F- 60 1 


WHAT, ANOTHER IMPROVEMENT ? 
Yes! DISASM The Intelligent Disassembler For The APPLE Has Been Enhanced With More Features Making It One 
Of The Most Powerful Utilities Of Its Kind. DISASM Converts 6502 Machine Code Into Meaningful, Symbolic 
Source. The Resultant Text File Can Be Used With Any Of The Most Popular Assemblers.  DISASM Is An 
Invaluable Aid For Understanding And Modifying Machine Language Programs. Here Are The Specs: 


DISASM (VERSION 2.2) 
# Selectable output formats are directly compatable with DOS ToolKit, LISA and S-C (4.0) Assembiers. # 108% 
machine language for fast operation. # Auto-prompting for easy use. # Operates on either the APPLE II or 
APPLE II Plus. # Labels automatically assigned as Pg Zero, External or Internal. # Labels and addresses are 
sorted for user convenience. # ORIGIN and EQUATE pseudo-ops provided. # Source segaentation after JMP and 
RTS allows for easier reading and understanding. # No restriction on disassembled block length (other than 
RAM or Assembler limitations). | # Correctly disassembles displaced object code (The program being 
disassembled doesn’t have to reside in the memory space in which it executes). # User defined Label Nane 
Table replaces arbitrary label assignments (External, Pg Zero and even Internal labels become acre 
meaningful, e.g. JSR COUT, LDA WNDTOP. The use of the Name Table is optional. # Monitor ROM Label Nane 
Table is included with over 108 of the most commonly used subroutine labels. Label table SOURCE is also 
provided so you can extend and customize it to your own needs. # Multiple data tables with user defined 
format may de intermixed with instructions. # NEW! A FULL Cross-Reference provides a complete table (tc 
screen or printer) grouped by referenced address type. # NEW ' A SINGLE Cross-Reference feature searches 
through the object code for a single user-specified address. 


DISASM (2.2) Program Diskette & User Manual: $38.08 Upgrade Kit for previous purchasers of DISASM: $12.5 
All shipments within continental USA via First-Class sail Foreign Orders: Add $3.08 for Air Mail 


RAK -WA RE 
41 Ralph Road 
West Orange NJ @7052 
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Decision 


Decision Systems 
S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Appie Il is a registered trademark of the Apple Computer Co. 
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Loops 


When you want to program repetitive code in, you write a FOR-NEXT 
loop or an IF loop. For example, you might write: 


10 FOR I = 1 TO 10 or: 10 I=0 


20 ..- 20 I=l1+l : IF I > 10 THEN 100 
30 NEXT I 30 ... 
90 GO TO 20 
100 


How do you do it in assembly language? 
Loop Variable in X or Y 


One of the simplest kind of loops holds the loop variable in the 
Y- or X-register, and decrements it once each trip. 


oe LDY #10 Loop for Y = 10 tol 
; DEY 
BNE .l 
Note that the loop variable is in the Y-reigster, and that it 


counts from 10 to 1, backwards. When the DEY opcode changes Y 
from 1 to 0, the loop terminates. 


If you want the loop to execute one more time, with Y=0, change it 
to this: 


LOOP LDY #10 Loop for Y = 10 to 0 


EY 
BPL .1 


Of course, a loop count of 129 or more would not work with this 
last example, because Y would look negative after each DEY until 
the value was less than 128. 


If you want the loop variable to run up instead of down, like from 
0 to 9, you need to add a comparison at the end of loop: 


a al LDY #0 Loop for Y = 0 to 9 
; INY 

CPY #10 

BCC .1 Carry clear if Y < 10 


All the examples above use the Y-register, but you can do the same 
thing with the X-register. In fact, uSing the X-register, you can 
nest one loop inside another: 


LOOPS IDY #0 FORY 
“4 LDX #10 FOR X 
DEX 

BNE .2. ‘NEXT X 


0 TO 9 
10 TO 1 STEP 1 


INY 
CPY #10 NEXT Y 
BCC 
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Loop Variable on Stack 


Sometimes X and Y are needed for other purposes, and so I use the 
Stack to save my loop variable. Also, the step size can be larger 
than l. 


LOOP LDA #0 SSR ee STEP 3 
ol PHA SAVE VAR ON ST. 


ADC #3. + ADD STEP SIZE 
CMP #16 
BCC .]~=—s VAR: <=:115 


In the Apple Monitor ROM there is a double loop using the stack to 
hold one of the variables. It is used just for a delay loop, with 
the length of delay depending on the contents of A when you call 
it. It is at S$FCA8. 


WAIT SEC 
el PHA outer tnner 
2 SBC #1 eeeinner loop 
BNE .2 eo next 
PLA 
SBC #1 
BNE .l next 
RTS 


The outer loop runs from A down to 1, and the inner loop runs from 
whatever the current value of the outer loop variable is down to 
1. The delay time, by the way, is 5*A*A/2 + 27*A/2 + 13 cycles. 
(A cycle in the Apple II is a little less than one microsecond.) 


16-bit Loop Variables 


What if you need to run a loop from $1234 to $2345? That is a 
little trickier, but not too hard: 


LOOP a #$1234 START AT $1234 
tba (51234 
STA 


el eeeoe 
INC VARL NEXT: ADD 1 
BNE 


2 LDA 
aang #52346 COMPARE TO LIMIT 


SBC /$2346 
BOC .1 NOT FINISHED 


A good example of this kind of loop is in the monitor ROMS also. 
The code for the end of loop incrementing and testing is at 


SFCB4-SFCC8. The memory move command ("M") at SFE2C-SFE35 uses 
this, 


Conclusion 


There are aS many variations on the above themes as there are 
problems and programmers, Look around in the ROMs, and in 
programs published in AAL and other magazines; try to understand 
how the loops you find are working, and adapt them to your own 
needs, 
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